home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Columbia Kermit
/
kermit.zip
/
newsgroups
/
misc.19990725-20000114
/
000401_news@columbia.edu _Sat Jan 1 17:52:30 2000.msg
< prev
next >
Wrap
Internet Message Format
|
2020-01-01
|
14KB
Return-Path: <news@columbia.edu>
Received: from newsmaster.cc.columbia.edu (newsmaster.cc.columbia.edu [128.59.59.30])
by watsun.cc.columbia.edu (8.8.5/8.8.5) with ESMTP id RAA18101
for <kermit.misc@watsun.cc.columbia.edu>; Sat, 1 Jan 2000 17:52:29 -0500 (EST)
Received: (from news@localhost)
by newsmaster.cc.columbia.edu (8.8.5/8.8.5) id RAA03985
for kermit.misc@watsun.cc.columbia.edu; Sat, 1 Jan 2000 17:45:28 -0500 (EST)
X-Authentication-Warning: newsmaster.cc.columbia.edu: news set sender to <news> using -f
From: not-2-disclose@the.net
Subject: MS-DOS Kermit, more capabalities
Message-ID: <010100173225not-2-disclose@the.net>
Date: Sat, 01 Jan 2000 22:45:24 GMT
Organization: Sympatico
To: kermit.misc@columbia.edu
Hi everybody,
I introduce myself, i'm a DOS_InterNet user and spent about the last two
years lurking/participating to the same-name echo of the `FidoNet'
amateur messaging network.
Since the last four years or so i looked for DOS INet FreeWare/ShareWare
programs in hope that i'd get my hands on some piece of software which
can be run even on a minimum setup, meaning:
- 8088 4,77 Mhz ~CPU~
- 640 Kb ~RAM~ memory (512 Kb if possible!)
- No Hard-Disk
- Two 5.25"/360 Kb diskette drives or a single 3.5"/720 Kb unit
- A crude 8250 ~UART~ serial-port
- A V.42Bis MoDem or better (i tied up an external 56K MoDem to a 8088!)
- DOS v3.3 (v3.0 compatibility would be fine but not required)
[...]
I have three topics in mind today:
*1*
I am trying to have some working `ZMoDem' and/or `Kermit' file transfer
protocols for when accessing ~TelNet~ BBSes. To upgrade the hardware or
to switch to protocols like ~FTP~/~HTTP~ *IS NOT* an option. `MS-Kermit
v3.16' is the best thing i seen, so far. It can outperform practically
any DOS ~BIOS INT-14~ and/or ~FOSSIL~-capable terminal emulator i could
find because it INTEGRATES the packet-driver interface, AND the ~TelNet~
protocol as well... Most unfortunately, `Kermit' doesn't included the
`ZMoDem' file transfer protocol (with control-character escaping & all);
making it less than "complete", somewhat. I would welcome postings from
people who happen to be doing fine `ZMoDem'/`Kermit' transfers using no
more than the minimum setup i described above. I tried a lot of packet
drivers and ~TelNet~ "shims" but nothing goes beyond D/L cps rates of a
mere 9k6/19K2 bps connection. If only i were able to DownLoad some .ZIP
files at over 1K cps or so using a ~TelNet~ "shim" that can be "shared"
between `Kermit' and an external `ZMoDem' protocol, euh... i guess that
would be a good enough. Any idea?! I saw fragmented informations about
the DOS Novell ~NASI~ v3.03k interface, what about it? :^o I tried all
these ~TelNet~ "shims" so far: `INT14', `Net14', `TCPPort', `TelAPI',
`TNGlass' (`RLFossil' too but it's not for 8088/8086 machines)... Isn't
there any MS-DOS `Kermit' update in preparation that will offer `ZMoDem'
file transfer capability?! 8^o
*2*
I discovered that i could access my ~POP3~ server on ~IP~ port #25 but
`Kermit' is the only program not to allow me such access if i try! Why?
*3*
In the same way that i found ~TelNet~ can be made usefull for doing a
lot of InterNet stuff, i have written a small set of `Kermit' scripts to
read the ~News Groups~ "On-Line". The problem here is that my postings
are reformated somehow and i also have trouble with some kind of "memory
low" error (too many routines accumulate or something like that). Would
somebody be kind enough to look at the following set of macros and tell
me what i'm doing wrong??? So far, i already found that some characters
pose a problem when found at the end of the line; "dash" is one...
:::::::::::::::::::::::::::::::::::::::::::::::::::::::[ MSKermit.INI ]:
CLS
SET FILE TYPE BINARY
SET FILE COLLISION RENAME ; or APPEND
;SET FILE COLLISION NO-SUPERSEDE ; is this prone to the Y2K bug?
SET PARITY NONE
SET BLOCK-CHECK-TYPE 3
SET RECEIVE PACKET-LENGTH 6608
SET WINDOW 5 ; or 32 (max.)
SET LOCAL OFF
SET PROMPT Kermit>
SET TERM ANSI
SET TERM CURSOR BLOCK
SET DISPLAY REGULAR 8-BIT
;
; TCP/IP - TelNet section
;
SET TCP/IP PACKET-DRIVER-INTERRUPT \x60 ; or ODI if `LWP4DOS' instead?
;
SET CONTROL UNPREFIXED ALL ; It's to enhance the D/Ls.
SET CONTROL PREFIXED 0 1 129 ;
;
SET FLOW NONE ; Because TCP/IP is used...
;
; N.B.:
;
; Using � BOOTP � via `EPPPD' should work but sometimes it doesn't; so,
; i found that a few DOS environement variables can be helpfull here...
;
SET TCP/IP ADDRESS \$(MYIP) ; Those DOS environement
SET TCP/IP GATEWAY \$(REMIP) ; variables are defined thru
SET TCP/IP SUBNETMASK \$(NETMASK) ; IP-UP.BAT (made by `EPPPD').
SET TCP/IP DOMAIN \$(DOMAIN) ; Some more DOS environement
SET TCP/IP PRIMARY-NAMESERVER \$(DNS1) ; variables need be defined in
SET TCP/IP SECONDARY-NAMESERVER \$(DNS2) ; YOUR own .BAT command-file.
;
; Syntaxt: "News"
; "News comp.protocols.kermit.misc"
; "News demon.ip.support.pc capture.log"
;
; N.B.: a) 4 of the NG macro-keys are located on the NUMERICAL keypad.
; b) Some older hardware may have to use different scan-codes;
; the "SET KEY" command helps finding a scan-code replacement,
; the same may be true of the 4 other macro-key combinations.
;
DEF News SET PORT TCP/IP news1.qc.sympatico.ca 119 VT100, - ; ~NNTP~
SET TELNET TERM-TYPE VT100, PAUSE 0, IF FAIL END, - ; server.
IF NOT DEF \%1 DEF \%1 demon.ip.support.pc, - ; Default
ASSIGN _Group \%1, - ; News Group.
:ChkGroup, ECHO News Group: \M(_Group)\10, - ; Validate the
ASK _Reply {Is this correct? }, - ; News Group
IF EQU {\FSUBSTR(\M(_Reply),1,1)} {Y} GOTO GotGroup, - ; with user's
ASK _Group {News Group: }, GOTO ChkGroup, - ; acknowledge.
:GotGroup, - ; News Group
DEF _LogFile News.CAP, - ; is OKay, set
IF DEF \%2 ASSIGN _LogFile \%2, - ; log (capture)
PAUSE 1, OUTPUT Group \M(_Group)\13, CONNECT ; file-name.
;
SET KEY \330 \KLast ; Press the num. [Minus] key ; Show previous
DEF Last IF DEF _Group OUTPUT Last\{13}Head\13, - ; article
IF NOT DEF _Group OUTPUT \45, CONNECT ; heading.
;
SET KEY \334 \KNext ; Press the num. [Plus] key ; Show next
DEF Next IF DEF _Group OUTPUT Next\{13}Head\13, - ; article
IF NOT DEF _Group OUTPUT \43, CONNECT ; heading.
;
SET KEY \4365 \KBody ; Press the num. [Enter] key ; Read
DEF Body IF DEF _Group OUTPUT Body, OUTPUT \13, CONNECT ; the article.
;
SET KEY \338 \KGetNews ; Press the num. [Insert] key ; Save article:
DEF GetNews IF NOT DEF _Group GOTO SkipSave,- ; the heading
LOG SESSION \M(_LogFile) APPEND, - ; and the text
OUTPUT Article\13, INPUT 3600 \13\{10}.\13\10, - ; to log-file.
CLOSE SESSION, - ; Press a key
:SkipSave, IF NOT DEF _Group OUTPUT \338, CONNECT ; to quit.
;
SET KEY \2351 \KView ; Press the [Alt]+[V] keys ; Run external
DEF View RUN List.COM, CONNECT ; viewer.
;
SET KEY \2322 \KEdit ; Press the [Alt]+[E] keys ; Run external
DEF Edit RUN Edit.EXE, CONNECT ; editor.
;
SET KEY \2329 \KPost ; Press the [Alt]+[P] keys ; Write & post
DEF Post IF NOT DEF _EMail GOTO GetAddr, - ; an article.
:ChkAddr, ECHO E-Mail address: \M(_EMail)\10, - ; Get E-Mail
ASK _Reply {Is this correct? }, - ; address and
IF EQU {\FSUBSTR(\M(_Reply),1,1)} {Y} GOTO AddrOK, - ; validate by
:GetAddr, ASK _EMail {E-Mail address: }, GOTO ChkAddr, - ; acknowledge.
:AddrOK, ASSIGN _Year$ \FSUBSTR(\V(NDate),5,2)- ; Prepare the
\FSUBSTR(\V(NDate),7,2)\FSUBSTR(\V(NDate),3,2), - ; header's
ASSIGN _NTime$ \FSUBSTR(\V(Time),1,2)- ; data.
\FSUBSTR(\V(Time),4,2)\FSUBSTR(\V(Time),7,2), - ;
OPEN WRITE EMail.TXT, WRITE FILE From: \M(_EMail), - ; Write the
WRITE FILE \13\{10}Date: \V(Date) \V(Time) EST- ; new article's
\13\10, WRITE FILE Newsgroups: \M(_Group)\13\10, - ; header and
WRITE FILE Subject:\13\10, WRITE FILE Message-ID: - ; footer.
<\M(_Year$)\M(_NTime$)\M(_EMail)>\13\10\13\10- ;
\13\10.\13\10, CLOSE WRITE, RUN Edit.EXE EMail.TXT, - ; Edit message.
OUTPUT Post\13, PAUSE 2, ASCII Email.TXT, CONNECT ; Send message.
SET KEY \2334 \KASCII ; Press the [Alt]+[A] keys ; ASCII UpLoad.
DEF ASCII IF NOT DEF \%1 GOTO GetFName, - ; Verify that a
ASSIGN _FName \%1, GOTO FNameOK, - ; file-name was
:ChkFName, ECHO File to send: \M(_FName)\10, - ; given and get
ASK _Reply {Is this correct? }, - ; one if it was
IF EQU {\FSUBSTR(\M(_Reply),1,1)} {Y} GOTO FNameOK, - ; not...
:GetFName, ASK _FName {File to send: }, GOTO ChkFName, - ; Validate with
:FNameOK, IF NOT EXIST \M(_FName) GOTO GetFName, - ; acknowledge &
OPEN READ \M(_FName), - ; check that it
:NewLine, - ; does exists.
DEF ChrIndex 1, READ OneLine, IF FAIL GOTO EndType, - ; Set pointers,
ASSIGN LineEnd \FLENGTH(\M(OneLine)), - ; get one line.
INCREMENT LineEnd, - ;GOTO Scan, - ; <- THIS is a
SET OUTPUT PACING 2, OUTPUT \M(OneLine), MSLEEP 10, - ; short & easy
OUTPUT \13, MSLEEP 15, XECHO \10, MSLEEP 45, - ; macro - jump
IF FAIL STOP 1 * User abort! *, GOTO NewLine, - ; to this line
:Scan, - ; <- HERE for
SLEEP 0, IF FAIL STOP 1 * User abort! *, - ; sending text
IF < \M(ChrIndex) \M(LineEnd) GOTO NewChr, - ; *1* character
OUTPUT \13, GOTO NewLine, - ; at a time...
:NewChr, - ; Initialize
DEF Out$, - ; sub-routine.
ASSIGN \%c \FCODE(\FSUBSTR(\M(OneLine),\M(ChrIndex),1)), - ;
IF = \%c 32 ASSIGN Out$ OUTPUT { }, - ; Send output
IF NOT DEF Out$ ASSIGN Out$ OUTPUT \\{D\%c}, - ; and look for
Out$, INCREMENT ChrIndex, GOTO Scan, - ; exceptions...
:EndType, - ; Text-file has
CLOSE READ ; been sent.
;
; To avoid typing long SET PORT TCP/IP commands, define a macro for each
; host you usually connect to. Type the defined name to connect to it!
;
DEF Doc SET PORT TCP/IP bbs.docsplace.org 23 ANSI, - ; ANSI allows
SET TELNET TERM-TYPE ANSI, PAUSE 0, IF SUCCESS CONNECT ; some drawing.
DEF Juxta SET PORT TCP/IP juxtaposition.dynip.com 23 ANSI, - ; Those two
SET TELNET TERM-TYPE ANSI, PAUSE 0, IF SUCCESS CONNECT ; Relayeurs
DEF Mysteria SET PORT TCP/IP mysteria.dynip.com 23 ANSI, - ; are carying
SET TELNET TERM-TYPE ANSI, PAUSE 0, IF SUCCESS CONNECT ; Canada-Media.
DEF Juge SET PORT TCP/IP juge.com 23 ANSI, - ; This place is
SET TELNET TERM-TYPE ANSI, SET TELNET NEWLINE RAW, - ; excellent for
PAUSE 0, IF SUCCESS CONNECT ; Kermit D/Ls!
;
DEF BCN SET PORT TCP/IP bcn.boulder.co.us 23 VT220, - ; Those � WEB �
SET TELNET TERM-TYPE VT220, PAUSE 0, IF SUCCESS CONNECT ; "TelNettable"
DEF Sailor SET PORT TCP/IP sailor.lib.md.us 23 VT220, - ; browsers do
SET TELNET TERM-TYPE VT220, PAUSE 0, IF SUCCESS CONNECT ; � FTP � also.
DEFINE TRFN SET PORT TCP/IP trfn.clpgh.org 23 VT220, - ; All of them
SET TELNET TERM-TYPE VT220, PAUSE 0, IF SUCCESS CONNECT ; got `Kermit'.
;
DEF IRC SET PORT TCP/IP 193.49.200.149 6677 VT100, - ; VT100 _IS_
SET TELNET TERM-TYPE VT100, PAUSE 0, IF SUCCESS CONNECT ; needed here.
;
DEF AirPower SET PORT TCP/IP airpower.dynip.com 23 ANSI, - ; Now added a
SET TELNET TERM-TYPE ANSI, PAUSE 0, IF SUCCESS CONNECT ; WEB BBS...
;
DEFINE BBSWorld SET PORT TCP/IP bbs.bbsworld.com 23 ANSI, - ;
SET TELNET TERM-TYPE ANSI, PAUSE 0, IF SUCCESS CONNECT ;
;
DEFINE ConChBBS SET PORT TCP/IP conchbbs.com 23 ANSI, - ;
SET TELNET TERM-TYPE ANSI, PAUSE 0, IF SUCCESS CONNECT ;
;
DEFINE CyberSpace SET PORT TCP/IP cyberspace.org 23 ANSI, - ;
SET TELNET TERM-TYPE ANSI, PAUSE 0, IF SUCCESS CONNECT ;
;
DEFINE LoneStar SET PORT TCP/IP sdf.lonestar.org 23 ANSI, - ;
SET TELNET TERM-TYPE ANSI, PAUSE 0, IF SUCCESS CONNECT ;
;
DEF NightMare SET PORT TCP/IP 206.106.145.5 23 ANSI, - ; A WC-5 BBS...
SET TELNET TERM-TYPE ANSI, SET BLOCK 2, PAUSE 0, IF SUCCESS CONNECT ;
;
DEFINE SStar SET PORT TCP/IP sstar.com 23 ANSI, - ;
SET TELNET TERM-TYPE ANSI, PAUSE 0, IF SUCCESS CONNECT ;
;
DEFINE TFhBBS SET PORT TCP/IP tfhbbs.trends.ca 23 ANSI, - ;
SET TELNET TERM-TYPE ANSI, PAUSE 0, IF SUCCESS CONNECT ;
;
DEFINE ToltBBS SET PORT TCP/IP toltbbs.com 23 ANSI, - ;
SET TELNET TERM-TYPE ANSI, PAUSE 0, IF SUCCESS CONNECT ;
;
DEFINE UnNamedBBS SET PORT TCP/IP unnamedbbs.com 23 ANSI, - ;
SET TELNET TERM-TYPE ANSI, PAUSE 0, IF SUCCESS CONNECT ;
;
SHOW NET
::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::[ EOF ]:
[...]
Thanks for your attention reading me. Happy new millenium!... 8-)
Michel Samson
P.S.: I'm new to this media; will somebody tell me the real dangers
of disclosing my ~E-Mail~ address and the ways to defeat them?